home *** CD-ROM | disk | FTP | other *** search
/ Professional Soft Collection 1.02 / Professional Soft Collection 1.02.iso / communic / bitfax.300 / disk1 / genie.sc_ / genie.bin
Text File  |  1994-04-19  |  513b  |  28 lines

  1. {genie.SCP}
  2.  
  3.  
  4. trace(0)
  5. :start
  6.     @c=1
  7.     typecr("Select the GEnie Record ID...")
  8.     selpbk(default)
  9.     select(GEnie)
  10.     if ( @mode <> 1 ) @mode = 1     { set it to call mode }
  11.     twait(1,"sec")    
  12.     docomm
  13.  
  14. :loop1 
  15. {    twait(1,"sec"); }
  16.     if ( @conn = 0 ) goto :abort     { abort if disconnected }
  17.     if ( @conn = 1 ) goto :done      { continue on if connected }
  18.     goto :loop1  
  19.  
  20.  :done
  21.     twait(2,"sec")    
  22.     "HHH"
  23.     cwait("#")
  24.     "xtx99182,humor$0d"
  25.  
  26. :abort
  27.     exit
  28.